Top 10k strings from Computer Brag (1983)(Turtle Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
18 stake=min+50 11 b(k)=h(k,1 8 stake=min: 8 b(k)=h(k,2 7 "ENTER c for hardcopy-else n";a$ 6 b(k)=h(k,3 6 JQKA23456789 5 c(k)=h(k,3 5 c(k)=h(k,2 5 c(k)=h(k,1 5 blind=blind-1 4 d(k)=h(k,3 4 d(k)=h(k,2 4 d(k)=h(k,1 4 d$(k)="pair": 4 +((stake-min)/35 4 );"OPENED": 4 )+(stake/80 4 ))*((in-blind)/1.5 3 w(player,1 3 stake>min+50 3 +(((c(k)-4 3 (bet-t(k))<4 3 "Hit ENTER to see next card";q$ 2 t(k)=t(k)+3 2 t(k)=t(k)+((1.5 2 stake=stake+50 2 stake=min+( 2 s(k)=p(k)-u(k) 2 pot=pot+stake: 2 pot=pot+min: 2 bluff=bluff+.5 2 blind=in-1 2 bet=bet+((1.5 2 *((count/4 2 ),z(turn,4 2 (bet-t(k)<4 1 x=(min*((in-blind-1 1 w(player,2 1 values hand 1 v(k)=(b(k)-4 1 u(k)=u(k)/e(k,1 1 u(k)=(min+x)/(e(k,1 1 u(k)=(min+(5 1 t(k)=in-blind-3 1 stake=stake+((s(k)+ 1 stake=stake+((s(k)*30 1 stake=stake+(( 1 s(k)<e(k,3 1 running flush 1 p(k)=((v(k)/100 1 p(k)=(((v(k)/100 1 p$(player)=n$(1 1 other players 1 n(player)=loose 1 min=stake*2 1 min=(stake*2 1 min=(stake) 1 m(w)=m(w)+pot: 1 m(k)=m(k)-stake: 1 m(k)=m(k)-min: 1 m(k)=m(k)-2 1 m(k)=m(k)+pot: 1 loose=n(player): 1 loose=bluff/bid: 1 l(k)=(e(k,1 1 l levels. Level 3 is the hardest ." 1 h$(k,j)=c$(r((k*3 1 h$(k,j)="Q" 1 h$(k,j)="K" 1 h$(k,j)="J" 1 h$(k,j)="A" 1 h$(k,j)="9" 1 h$(k,j)="8" 1 h$(k,j)="7" 1 h$(k,j)="6" 1 h$(k,j)="5" 1 h$(k,j)="4" 1 h$(k,j)="3" 1 h$(k,j)="2" 1 g(player)=bid 1 d$(k)="run": 1 d$(k)="high": 1 d$(k)="Prial": 1 d$(k)="Flush": 1 d$(k)="Flush Run": 1 count=count+1 1 c$="23456789 1 bluff=bid*loose: 1 bid=g(player): 1 bet=bet+in-blind-3 1 bet=bet+in+in-blind-3 1 bet-t(k)<5 1 best=m(k): 1 T.Lebon 1983**" 1 ;w(player,1 1 ;n$(most): 1 ;n$(k);" `";m(k): 1 ;"wins `";pot: 1 ;"winner of `";pot;" is ";n$(w) 1 ;"to stack" 1 ;"threes.The second best prial is aces,then kings etc-down to twos" 1 ;"`";min;" to open" 1 ;"`";m(k): 1 ;"You now have the option of 1 ;"You now have choice of levels" 1 ;"You are in the possession of a sophisticated programme.The 1 ;"What's your name?" 1 ;"Welcome to the game,";n$(1 1 ;"Welcome to Computer Brag.In justa moment we'll start the game." 1 ;"Too much!"; 1 ;"Too little"; 1 ;"The score so far is :- ": 1 ;"The highest hand is a prial of" 1 ;"The Kid": 1 ;"The Kid" 1 ;"The Kid `";m(2 1 ;"See you": 1 ;"STACKED": 1 ;"Rules of Brag" 1 ;"Puggy `";m(4 1 ;"Minm `";min 1 ;"Maxm `";min+50 1 ;"Lets see how we ended up": 1 ;"Howdee,pardna!": 1 ;"Hand ";count-1 1 ;"Hand ";count 1 ;"For ";n$(k) 1 ;"ENTER 3 for level 3": 1 ;"ENTER 2 for level 2 ": 1 ;"ENTER 1 for level 1 ": 1 ;"ENTER 0 if you want this player to be very tight up to 10 for him to be very loose ": 1 ;"ENTER '0'" 1 ;"Chicken!": 1 ;"3 in suit & sequence" 1 ;".It also bluffs!" 1 ;"**Computer Brag 1 ;"** Ranking of hands **" 1 ;"(2)Flush run": 1 ;"(1)A Prial or three of a kind" 1 ;" Hard luck ,pardna.It looks 1 ;" Congratulations! It looks as if some humans do know how to play Brag ,after all !" 1 +((level-1 1 +((b(k)*(17 1 *x*blind))) 1 *blind*min))/(pot+min+(8 1 *blind*min)) 1 *(bet-(t(k 1 )^(in-blind-1 1 )^(blind))*((v(k)/100 1 )^((in-blind-1 1 )>w(player,2 1 )=w(player,2 1 )=w(player,1 1 )=in-blind-3 1 );h$(k,j);s$(k,j) 1 );"Wins $";pot 1 );"Shuffling" 1 );"See you": 1 );"STACKED": 1 );"I bet `";stake 1 );" Prob of winning "; 1 ); "`";m(1 1 )+w(player,2 1 )*(min+pot+x+(x*(in-blind))+(.6 1 )*((v(k)/100 1 ))+min+((min*(blind^1.6 1 ''"You start with `500.We play 1 ''"ENTER how many deals you would like to see" 1 '"eg ENTER 5 for his style to be neither loose nor tight" 1 '"You must then decide how much you want to bet.The minimum and" 1 '"Would you like to see the full instructions ?(y/n)": 1 '"Unlike you, your opponents have unlimited credit!" 1 '"This makes for a lot of fun -andskill- in trying to work out your opponents styles:just like in an ordinary game" 1 '"There follows a showdown and theplayer with the best hand wins the pot" 1 '"The play continues until there are only 2 players left in." 1 '"The highest card wins.To break a tie the second-highest card decides.If the hands are still level then the third-highest card decides" 1 '"The entire game is played till you go bust or reach `1000" 1 '"The computer plays for your 3 opponents.All players start off 'blind'.i.e.none of your 1 '"The computer automatically " 1 '"Rest assured though that the hands are dealt entirely at 1 '"Otherwise their style is chosen randomly.Note that each player will keep the same style the whole game,but may well change for another game." 1 '"If you want to drop out (stack)ENTER '0' when asked how much you want to bet" 1 '"If you stay blind (i.e. bet 1 '"If you go bust whilst in the middle of a hand you can play on but automatically have to open and see as soon as you can" 1 '"If you answer 'y'then the 1 '"Each of your 3 opponents have an individual style of play." 1 '"ENTER 1 if you want to determinetheir styles yourself.As this would otherwise put you at an unfair advantage you will start with `300 instead of `500." 1 '"ENTER 0 for the standard game. In that case how tight or loose each opponent plays will be 1 '"Do you want to see a 1 '"Because your computerised 1 '"An original feature of 'ComputerBrag' is that the other players adjust their play to your style-e.g.if you bluff frequently theywill tend to stay in with you more often." 1 '"A pair of aces is best:a pair oftwos worst.Equal pairs are 1 '"(A loose player is one who will bluff a lot ,a tight player one who will generally bet only on good hands)": 1 '"(6)High card :no combination" 1 '"(5)Pair :two only of same rank" 1 '"(3)Run :any 3 in sequence" 1 "your opponents yourself or to let the computer do so." 1 "on the screen" 1 "maximum amounts are displayed" 1 "deducts `2 ante from each player" 1 "asked whether you want to peek" 1 "and then deals the cards" 1 "You will be asked if you want toselect styles.If you answer 'y' then you choose how tight or loose each opponent plays." 1 "When it is your turn you will be" 1 "Then,as long as neither player is blind (ie both have opened) one player can see the other one if he so chooses." 1 "The order of Runs is the same as Flush runs ieA23 is best,234 worst" 1 "The maximum amount you can raisethe stake by is `50" 1 "The best Flush run is A23,then AKQ,down to 234,the lowest" 1 "If both players have hands of identical value then the player who has 'seen' his opponent 1 "If 2 players both have a Flush the highest-ranking top card wins,or second-highest to break a tie" 1 "How many ` do you bet?";v$: 1 "Hit ENTER to continue";q$: 1 "Hit ENTER to continue";a$: 1 "ENTER s to see-else 'n'";a$ 1 "ENTER 1 to see all hands at cost of `5- otherwise hit ENTER";z$: 1 "ENTER 'y' to peek-else 'n'";a$ 1 "At level 3 your opponents all play close to the mathematicallycorrect play.": 1 "At level 2 the computer decides how loose or tight each opponentplays for the whole game,at 1 "At level 1 one opponent will play very loose,another tight, and another just right:but you have to work out which is which." 1 "Another feature is that you 1 "*** About Computer Brag ***" 1 "(4)Flush :any 3 in suit" 1 without peeking at your hand)youneed only bet half the amount of those players who have opened" 1 whether to choose the styles of" 1 until you have `1000 - or go bust." 1 random.Nor do the other players ever know your hand during play!" 1 random.(The difference between level 2 and level 1 is that at level 2 all 3 players can have the same style.)" 1 opponents have such a logical decision procedure you may find beating them difficult!" 1 opponents have looked at their hands until 'OPENED' is printed on their cards" 1 have a choice of skil 1 determined randomly by the 1 demonstration game with the 1 decided on the highest odd card" 1 computer." 1 computer will show your hand." 1 computer playing all 4 hands (ENTER 'y' or 'n')" 1 computer has a complex method for determining the value of its hands and its chances of winning" 1 cleverer than some humans!" 1 as if we machines are 1 The Kid Wild Bill Puggy 1 Cards Rank" 1 ** The Play **" 1 ";w(player,2